; * src/bytecode.c (exec_byte_code): Cosmetic improvement

Implement point_max in the same way as point_min.

diff --git a/src/bytecode.c b/src/bytecode.c
index 00db29b0140cbc9186b1f784530322e7c8d44652..7a9966e20ef066da171a0a3a19b68aaf893c3134 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1212,12 +1212,8 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
          NEXT;
 
        CASE (Bpoint_max):
-         {
-           Lisp_Object v1;
-           XSETFASTINT (v1, ZV);
-           PUSH (v1);
-           NEXT;
-         }
+         PUSH (make_fixed_natnum (ZV));
+         NEXT;
 
        CASE (Bpoint_min):
          PUSH (make_fixed_natnum (BEGV));